Apple Reference & Presen…rary 8 (Internal Edition)/Apple R&P Lib Internal v8.0.iso/3-Presentations/Service⁄Support⁄Training/Self-Paced Training/Macintosh SE⁄30 Training/Macintosh SE⁄30/Macintosh SE_30/stack_-1.xml

Extensible Markup Language | 1988-12-18 | 8.0 KB | 23 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>239</cardCount>
    <cardID>9977</cardID>
    <listID>129588</listID>
    <cantModify><true /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>--————————————————————————————————————————————————————————————————————
--  Stack created for Apple Computer, Inc.
--  Copyright © 1988 by Apple Computer, Inc.
--  HyperCard construction — Chuck Walker.
--  PopUpMenu XFCN by Andrew Gilmartin, Brown University
--————————————————————————————————————————————————————————————————————
--  Begin Stack Script  ——————————————————————————————————————————————
--————————————————————————————————————————————————————————————————————
on openStack
if the version < 2.0 then
answer "This stack requires HyperCard version 2.0" with¬
"Continue" or "Home"
if it is "Home" then go home
end if
put item 2 of the screenRect into screenTop
if top of card window < screenTop + 20 then hide menuBar
hide tool window
hide pattern window
hide msg
resetMap
end openStack
--————————————————————————————————————————————————————————————————————
on closeStack
put "" into clicktime
put "" into checkeditem
put "" into mapcleaning
pass closeStack

end closeStack
--————————————————————————————————————————————————————————————————————
--  intercept keyboard handlers:  ————————————————————————————————————
--————————————————————————————————————————————————————————————————————
--  same as clicking the arrow buttons  ——————————————————————————————
on arrowKey whatKey
if whatKey = "Left" then click at 442,328
if whatKey = "Right" then click at 469,328
end arrowKey

--  same as clicking the return button  ——————————————————————————————
on returnKey
click at 498,328
end returnKey

--  intercept enter key  —————————————————————————————————————————————
on enterKey
end enterKey

--————————————————————————————————————————————————————————————————————
--  offer help to the lost  ——————————————————————————————————————————

on mouseUp
global clickTime
if the ticks - clickTime < 50 then exit mouseUp

answer "Click one of the Arrow buttons." with "Help" or "OK"
if it is "Help" then
push card
visual dissolve
go card "howToUse"
else exit mouseUp

end mouseUp
--————————————————————————————————————————————————————————————————————
-- disable certain menu options which are not appropriate  ———————————

on domenu whatMenu                       --// Added by Medior, Inc. 3/13/91
global RPStackName
if whatMenu is in "Message Find... Print Report... Last Prev Next" then
exit to HyperCard
else if (","& whatMenu &",") is in ",Home,Quit HyperCard," and RPStackName is not empty then
set cursor to 4
put RPStackName into sN
repeat until offset(":",sN) = 0
delete char 1 to offset(":",sN) of sN
end repeat
delete last char of sN
answer "This will return to "&sN&"." with "Cancel" or "OK"
if it is "Cancel" then exit domenu
set cursor to 4
lock screen
go RPStackName
unlock screen with dissolve fast
exit domenu
else pass doMenu
end domenu
--————————————————————————————————————————————————————————————————————
-- popUp table of contents menu  —————————————————————————————————————

on mainMenu
global clickTime, checkedItem

get the loc of card window
put item 1 of it into LeftWind
put item 2 of it into TopWind
get the rect of target
put item 1 of it into leftSide
put item 4 of it into bottomSide
put (TopWind + bottomSide +(checkedItem * 16) - 16) into hMenuLoc
put LeftWind + leftSide + 1 into vMenuLoc

get PopUpMenu(field "menuList" of card "Map", ¬
checkedItem, hMenuLoc, vMenuLoc)

if it = 1 then
push card
go card "Map"
end if
if it = 2 then
push card
go card "howToUse"
end if
if it = 4 then go card "content1"
if it = 5 then go card "content2"
if it = 6 then go card "content3"
if it = 7 then go card "content4"
if it = 8 then go card "content5"
if it = 9 then go card "content6"
if it = 10 then go card "content7"
if it = 11 then go card "content8"
if it = 13 then
push card
go card "content0"
end if
if it = 14 then
push card
go card "index1"
end if
if it = 16 then doMenu "Print Card"

end mainMenu
--————————————————————————————————————————————————————————————————————
--  handler resets map to no footprints  —————————————————————————————

on resetMap
global mapCleaning

put "true" into mapCleaning
lock screen
push card
go card "Map"
put "" into fld "footprints"
repeat with x = 1 to 12
set the style of bkgnd button x to opaque
end repeat

pop card
put "false" into mapCleaning
unlock screen

end resetMap
--————————————————————————————————————————————————————————————————————
--  timing for all animation events  —————————————————————————————————

on runningPause

repeat 250
if the mouse is down then
click at the clickloc
exit to HyperCard
end if
end repeat

end runningPause
--————————————————————————————————————————————————————————————————————
--  End Stack Script  ————————————————————————————————————————————————
--————————————————————————————————————————————————————————————————————
</script>
    <background id="3987" file="background_3987.xml" name="openBack" />
    <background id="23174" file="background_23174.xml" name="mainBack" />
    <background id="23808" file="background_23808.xml" name="helpBack" />
    <background id="24880" file="background_24880.xml" name="descBack" />
    <background id="28558" file="background_28558.xml" name="targetBack" />
    <background id="33307" file="background_33307.xml" name="benefitBack" />
    <background id="38590" file="background_38590.xml" na